From 6a5c2410dd01a811226480c93cfde3263d7ee43c Mon Sep 17 00:00:00 2001 From: justbur Date: Sun, 20 Sep 2015 20:59:01 -0400 Subject: [PATCH] Add faces group --- which-key.el | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) diff --git a/which-key.el b/which-key.el index 4bd59f572e6..960077f3c04 100644 --- a/which-key.el +++ b/which-key.el @@ -229,46 +229,51 @@ prefixes in `which-key-paging-prefixes'" :type 'boolean) ;; Faces +(defgroup which-key-faces nil + "Faces for which-key-mode" + :group 'which-key + :prefix "which-key-") + (defface which-key-key-face '((t . (:inherit font-lock-constant-face))) "Face for which-key keys" - :group 'which-key) + :group 'which-key-faces) (defface which-key-separator-face '((t . (:inherit font-lock-comment-face))) "Face for the separator (default separator is an arrow)" - :group 'which-key) + :group 'which-key-faces) (defface which-key-note-face '((t . (:inherit which-key-separator-face))) "Face for notes or hints occasionally provided" - :group 'which-key) + :group 'which-key-faces) (defface which-key-command-description-face '((t . (:inherit font-lock-function-name-face))) "Face for the key description when it is a command" - :group 'which-key) + :group 'which-key-faces) (defface which-key-local-map-description-face '((t . (:inherit which-key-command-description-face))) "Face for the key description when it is found in `current-local-map'" - :group 'which-key) + :group 'which-key-faces) (defface which-key-highlighted-command-face '((t . (:inherit which-key-command-description-face :underline t))) "Default face for the command description when it is a command and it matches a string in `which-key-highlighted-command-face'." - :group 'which-key) + :group 'which-key-faces) (defface which-key-group-description-face '((t . (:inherit font-lock-keyword-face))) "Face for the key description when it is a group or prefix" - :group 'which-key) + :group 'which-key-faces) (defface which-key-special-key-face '((t . (:inherit which-key-key-face :inverse-video t :weight bold))) "Face for special keys (SPC, TAB, RET)" - :group 'which-key) + :group 'which-key-faces) ;; Custom popup (defcustom which-key-custom-popup-max-dimensions-function nil -- 2.30.2